SetByteStatus(UserItem.btValue[tb_Status], Is 

CheckByteStatus(UserItem.btValue[tb_Status], Is_ 

  tb_Hit = 0; //׼ȷ     ԭֵ 5
  tb_Speed = 1; //
  tb_Source = 2; //ǿ
  tb_AntiMagic = 3; //ħ
  tb_PoisonMagic = 4; //
  tb_HealthRecover = 5; //ָ
  tb_SpellRecover = 6; //ħָ
  tb_PoisonRecover = 7; //жָ
  tb_HitSpeed = 8; //ٶ     ԭֵ 6
  tb_Luck = 9; //     ԭֵ 3
  tb_WuXin = 10; //
  tb_BindMode = 11; //״̬
  tb_AddAttack = 12; //ӳ
  tb_DelDamage = 13; //˺
  tb_flutecount = 14; //
  tb_Status = 15; //װ״̬
  tb_Reserved = 16;
  tb_unknown1 = 17; //δ֪
  tb_Count = 18;

  Is_Lock = 0;  //ȡ
  Is_UnKnow = 1;  //װ
  Is_Shine = 2;  //

GetHitStruckDamage
GetMagStruckDamage


procedure SetByteStatus(var Value: Byte; btValType: Byte; Status: Boolean);
function CheckByteStatus(Value, btValType: Byte): Boolean;

implementation

function CheckByteStatus(Value, btValType: Byte): Boolean;
begin
  Result := False;
  if ((128 shr btValType) and (Value)) <> 0 then Result := True;
end;

procedure SetByteStatus(var Value: Byte; btValType: Byte; Status: Boolean);
begin
  if Status then Value := (128 shr btValType) or (Value)
  else Value := (not (128 shr btValType)) and (Value);
end;

DelBagItem


ɴ

ɽףɰ̯
ɶʧ






TPlayObject.ClientUserSellItem Ʒ
TPlayObject.ClientDropItem Ʒ
TPlayObject.ClientAddDealItem Ʒ
TPlayObject.ClientStorageItem ֿ
TPlayObject.ScatterBagItems 
TPlayObject.ScatterBagItems Ʒ

QuestTakeCheckItem

111..121, 135, 138..145, 150..162
170..172, 180..183

if StdItem.Shape = 123 boRecallSuite1 := True;
if StdItem.Shape = 127  boSpirit1 := True;
if StdItem.Shape = 122  boRecallSuite2 := True;
if StdItem.Shape = 128 boSpirit2 := True;
if StdItem.Shape = 133 then begin
      boMoXieSuite2 := True;
      Inc(m_nMoXieSuite, StdItem.AniCount);
    end;
    if StdItem.Shape = 136 then begin
      boHongMoSuite2 := True;
      Inc(m_nHongMoSuite, StdItem.AniCount);
    end;
if StdItem.Shape = 124  boRecallSuite3 := True;
    if StdItem.Shape = 126  boSpirit3 := True;

if StdItem.Shape = 134 then begin
      boMoXieSuite3 := True;
      Inc(m_nMoXieSuite, StdItem.AniCount);
    end;
    if StdItem.Shape = 137 then begin
      boHongMoSuite3 := True;
      Inc(m_nHongMoSuite, StdItem.AniCount);
    end;

if StdItem.Shape = 125  boRecallSuite4 := True;
    if StdItem.Shape = 129  boSpirit4 := True;